home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / BLENKBOT.EXE / ALIASES.INI next >
INI File  |  1997-04-05  |  20KB  |  502 lines
  1. [Aliases]
  2. n0=Buster {
  3. n1=  set %jchan $$?1="Channel?"
  4. n2=  :beginning
  5. n3=  if ( $me ison %jchan ) { goto end }
  6. n4=  else { /timer 0 5 /join %jchan | /timer 4 4 /part %jchan | goto beginning }
  7. n5=  :end
  8. n6=  halt
  9. n7=}
  10. n8=von {
  11. n9=  set %opvnn-v 0
  12. n10=  set %opvnn-o 0
  13. n11=  set %opvn.msg $$?="enter msg"
  14. n12=  set %opvn.msg 12[ %logo2 Ops&Voiced/ $+ $opnick(0,#) $+ / $+ $vnick(0,#) $+ ] %opvn.msg
  15. n13=  :loop-voice
  16. n14=  inc %opvnn-v 1
  17. n15=  if $vnick(%opvnn-v,#) == $null { goto loop-ops }
  18. n16=  if $vnick(%opvnn-v,#) == $me { goto loop-voice }
  19. n17=  //.notice $vnick(%opvnn-v,#) %opvn.msg
  20. n18=  goto loop-voice
  21. n19=  :loop-ops
  22. n20=  inc %opvnn-o 1
  23. n21=  if $opnick(%opvnn-o,#) == $null { goto end }
  24. n22=  if $opnick(%opvnn-o,#) == $me { goto loop-ops }
  25. n23=  //.notice $opnick(%opvnn-o,#) %opvn.msg
  26. n24=  goto loop-ops
  27. n25=  :end
  28. n26=  echo $active %opvn.msg
  29. n27=  unset %opvnn-o && %opvn.msg && %opvnn-v
  30. n28=}
  31. n29=rtime {
  32. n30=  set %realtime $time
  33. n31=  set %hour $token(1,58,%realtime)
  34. n32=  set %type AM  
  35. n33=  if (%hour = 0) /set %hour 12 
  36. n34=  if (%hour > 12) { /set %hour %hour - 12 | /set %type PM }
  37. n35=  if (%hour = 12) /set %type PM
  38. n36=  set %min $token(2,58,%realtime)
  39. n37=  set %realtime %hour $+ : $+ %min %type
  40. n38=  if (%online = on) /set %online %realtime 
  41. n39=  unset %hour | /unset %min | /unset %type | /return %realtime 
  42. n40=}
  43. n41=/elite  {
  44. n42=  set %asd $$?1="EnteráText" *2
  45. n43=  %asd = $replace(%asd,0,°)
  46. n44=  %asd = $replace(%asd,1,╣)
  47. n45=  %asd = $replace(%asd,2,▓)
  48. n46=  %asd = $replace(%asd,3,│)
  49. n47=  %asd = $replace(%asd,ae,╞)
  50. n48=  %asd = $replace(%asd,a,σ)
  51. n49=  %asd = $replace(%asd,b,▀)
  52. n50=  %asd = $replace(%asd,c,⌐)
  53. n51=  %asd = $replace(%asd,d,╨)
  54. n52=  %asd = $replace(%asd,e,δ)
  55. n53=  %asd = $replace(%asd,i,ε)
  56. n54=  %asd = $replace(%asd,l,ú)
  57. n55=  %asd = $replace(%asd,n,±)
  58. n56=  %asd = $replace(%asd,o,≡) 
  59. n57=  %asd = $replace(%asd,r,«)
  60. n58=  %asd = $replace(%asd,s,º)
  61. n59=  %asd = $replace(%asd,u,╡)
  62. n60=  %asd = $replace(%asd,x,╫)
  63. n61=  %asd = $replace(%asd,y,Ñ)
  64. n62=  %asd = $replace(%asd,!,í)
  65. n63=  %asd = $replace(%asd,?,┐)
  66. n64=  %asd = $replace(%asd,<,½)
  67. n65=  %asd = $replace(%asd,>,╗)
  68. n66=  %asd = $replace(%asd,-,¼)
  69. n67=  %asc = $replace(%asd,:,ª)
  70. n68=  say %asd
  71. n69=  unset %asd
  72. n70=}
  73. n71=code {
  74. n72=  set %pos1 0
  75. n73=  if (%code1 == º) { goto start1 }
  76. n74=  if (%key < 2) || (%key > 90) { key }
  77. n75=  set %len1 $len(*1) | set %code *1 | set %color1 4 | set %code1 "" | set %codekey %key
  78. n76=  :start1
  79. n77=  inc %pos1 1
  80. n78=  %asc1 = $asc($mid(%pos1,1,%code)) + %codekey
  81. n79=  if (%asc1 > 126) { dec %asc1 94 }
  82. n80=  set %code1 %code1 $+ $chr(%asc1)
  83. n81=  if (%pos1 < %len1) { goto start1 }
  84. n82=  say º %code1
  85. n83=  echo %color1 > º %code
  86. n84=  unset %len1 | unset %asc1 | unset %pos1 | unset %code | unset %code1 | unset %color1
  87. n85=  unset %codekey
  88. n86=}
  89. n87=code0 set %len1 $len(*1) | set %code *1 | set %code1 º | set %color1 2 | set %codekey 91 | code
  90. n88=decode {
  91. n89=  set %len2 $len(%decode)
  92. n90=  if (%len2 > 300) { echo 4 %chan *** Decode halted; possible decode flood from %nick $+ . | halt }
  93. n91=  if ($mid(1,1,%decode) == º) { set %pos2 1 | set %color2 2 | set %decodekey 91 | goto start1 }
  94. n92=  if (%key < 2) || (%key > 90) { key }
  95. n93=  set %pos2 0 | set %color2 4 | set %decodekey %key
  96. n94=  :start1
  97. n95=  set %code2 ""
  98. n96=  %key2 = %decodekey + 33
  99. n97=  :start2
  100. n98=  inc %pos2 1
  101. n99=  set %asc2 $asc($mid(%pos2,1,%decode))
  102. n100=  if (%asc2 < %key2) { inc %asc2 94 }
  103. n101=  dec %asc2 %decodekey
  104. n102=  if (%asc2 == 94) { set %asc2 160 }
  105. n103=  set %code2 %code2 $+ $chr(%asc2)
  106. n104=  if (%pos2 < %len2) { goto start2 }
  107. n105=  echo %color2 %chan < $+ %nick $+ > %code2
  108. n106=  unset %len2 | unset %nick | unset %chan | unset %asc2 | unset %key2 | unset %pos2
  109. n107=  unset %code2 | unset %color2 | unset %decode | unset %decodekey
  110. n108=}
  111. n109=key {
  112. n110=  set %key $$?="Number (2-90 excluding 10,13 and 27)?"
  113. n111=  mykey
  114. n112=}
  115. n113=mykey {
  116. n114=  if ((%key < 2) || (%key == 10) || (%key == 13) || (%key == 27) || (%key > 90)) {
  117. n115=    echo 4 $active *** Enter a number between 2 and 90, excluding 10,13 and 27.
  118. n116=  }
  119. n117=  else { echo 4 $active *** Code key is %key $+ . }
  120. n118=}
  121. n119=backwards {
  122. n120=  unset %backtext
  123. n121=  if ($1 == -d) { 
  124. n122=    set %backtext ºá
  125. n123=    set %text $remove(*1,$left(3,*1))
  126. n124=  }
  127. n125=  else { %text = *1 }
  128. n126=  %space = $chr(32)
  129. n127=  %i = $len(%text) + 1
  130. n128=  :next
  131. n129=  dec %i 1
  132. n130=  if %i == 0 { say %backtext | halt }
  133. n131=  %thischar = $mid(%i,1,%text)
  134. n132=  if %thischar == %space {
  135. n133=    %thislet = á
  136. n134=    if %backtext == $null { set %backtext %thislet | goto next }
  137. n135=    else { set %backtext %backtext $+ %thislet | goto next }
  138. n136=  }
  139. n137=  if %backtext == $null { set %backtext %thischar | goto next }
  140. n138=  else { set %backtext %backtext $+ %thischar | goto next }
  141. n139=}
  142. n140=blocktalk {
  143. n141=  set %bk $$?1="EnteráText" *2
  144. n142=  %bk = $replace(%bk,a,[A])
  145. n143=  %bk = $replace(%bk,b,[B])
  146. n144=  %bk = $replace(%bk,c,[C])
  147. n145=  %bk = $replace(%bk,d,[D])
  148. n146=  %bk = $replace(%bk,e,[E])
  149. n147=  %bk = $replace(%bk,f,[F])
  150. n148=  %bk = $replace(%bk,g,[G])
  151. n149=  %bk = $replace(%bk,h,[H])
  152. n150=  %bk = $replace(%bk,i,[I])
  153. n151=  %bk = $replace(%bk,j,[J])
  154. n152=  %bk = $replace(%bk,k,[K])
  155. n153=  %bk = $replace(%bk,l,[L])
  156. n154=  %bk = $replace(%bk,m,[M])
  157. n155=  %bk = $replace(%bk,n,[N])
  158. n156=  %bk = $replace(%bk,o,[O])
  159. n157=  %bk = $replace(%bk,p,[P])
  160. n158=  %bk = $replace(%bk,q,[Q])
  161. n159=  %bk = $replace(%bk,r,[R])
  162. n160=  %bk = $replace(%bk,s,[S])
  163. n161=  %bk = $replace(%bk,t,[T])
  164. n162=  %bk = $replace(%bk,u,[U])
  165. n163=  %bk = $replace(%bk,v,[V])
  166. n164=  %bk = $replace(%bk,w,[W])
  167. n165=  %bk = $replace(%bk,x,[X])
  168. n166=  %bk = $replace(%bk,y,[Y])
  169. n167=  %bk = $replace(%bk,z,[Z])
  170. n168=  %bk = $replace(%bk,!,[!])
  171. n169=  %bk = $replace(%bk,?,[?])
  172. n170=  %bk = $replace(%bk,$,[$])
  173. n171=  %bk = $replace(%bk,#,[#])
  174. n172=  %bk = $replace(%bk,/,[/])  
  175. n173=  %bk = $replace(%bk,\,[\])
  176. n174=  %bk = $replace(%bk,|,[|])
  177. n175=  say %bk
  178. n176=  unset %bk
  179. n177=}
  180. n178=colorblock {
  181. n179=  set %bk $$?1="Enter Text" *2
  182. n180=  %bk = $replace(%bk,a,[2A])
  183. n181=  %bk = $replace(%bk,b,[3B])
  184. n182=  %bk = $replace(%bk,c,[4C])
  185. n183=  %bk = $replace(%bk,d,[5D])
  186. n184=  %bk = $replace(%bk,e,[6E])
  187. n185=  %bk = $replace(%bk,f,[7F])
  188. n186=  %bk = $replace(%bk,g,[8G])
  189. n187=  %bk = $replace(%bk,h,[9H])
  190. n188=  %bk = $replace(%bk,i,[19I])
  191. n189=  %bk = $replace(%bk,j,[2J])
  192. n190=  %bk = $replace(%bk,k,[3K])
  193. n191=  %bk = $replace(%bk,l,[4L])
  194. n192=  %bk = $replace(%bk,m,[5M])
  195. n193=  %bk = $replace(%bk,n,[6N])
  196. n194=  %bk = $replace(%bk,o,[7O])
  197. n195=  %bk = $replace(%bk,p,[8P])
  198. n196=  %bk = $replace(%bk,q,[9Q])
  199. n197=  %bk = $replace(%bk,r,[1R])
  200. n198=  %bk = $replace(%bk,s,[2S])
  201. n199=  %bk = $replace(%bk,t,[3T])
  202. n200=  %bk = $replace(%bk,u,[4U])
  203. n201=  %bk = $replace(%bk,v,[5V])
  204. n202=  %bk = $replace(%bk,w,[6W])
  205. n203=  %bk = $replace(%bk,x,[7X])
  206. n204=  %bk = $replace(%bk,y,[8Y])
  207. n205=  %bk = $replace(%bk,z,[9Z])
  208. n206=  %bk = $replace(%bk,!,[2!])
  209. n207=  %bk = $replace(%bk,?,[3?])
  210. n208=  %bk = $replace(%bk,$,[4$])
  211. n209=  %bk = $replace(%bk,#,[5#])
  212. n210=  %bk = $replace(%bk,/,[6/])  
  213. n211=  %bk = $replace(%bk,\,[7\])
  214. n212=  %bk = $replace(%bk,|,[8|])
  215. n213=  say %bk
  216. n214=  unset %bk
  217. n215=}
  218. n216=/bco {
  219. n217=  set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  220. n218=  :loop
  221. n219=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  222. n220=  inc %p
  223. n221=  if ( $mid(%p,1,%i) != á) { inc %c }
  224. n222=  if ( %c > 6 ) { set %c 1 }
  225. n223=  if ( $mid(%p,1,%i) != $null ) { goto loop }
  226. n224=  say %o
  227. n225=  unset %o %i %p %c
  228. n226=}
  229. n227=ovn {
  230. n228=  set %vnn 0
  231. n229=  set %ovn.msg $$?="enter msg"
  232. n230=  set %ovn.msg 04[ %logo2 Ops&Voiced/ $+ $vnick(0,#) $+ / $+ $opnick(0,#) $+ ] 05 %ovn.msg 
  233. n231=  :loop
  234. n232=  inc %vnn 1
  235. n233=  if ($vnick(%vnn,#) == $null) { goto end }
  236. n234=  //.notice $vnick(%vnn,#) %ovn.msg
  237. n235=  goto loop
  238. n236=  :end
  239. n237=  //.onotice %ovn.msg
  240. n238=  echo $active %ovn.msg
  241. n239=  unset %vnn && %ovn.msg
  242. n240=}
  243. n241=clone {
  244. n242=  echo 3 4=(-^-)=Now Starting Clone Scan On # $+ 4=(-^-)=
  245. n243=  echo 3 4=(-^-)=Scanning $nick(0,#) $+ 4=(-^-)=
  246. n244=  set %startclon $ctime
  247. n245=  unset %clonsite.*
  248. n246=  set %numclones 0
  249. n247=  set %clon.tmp $nick(0,#)
  250. n248=  set %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] 12,7í4 $+ $nick(%clon.tmp,#) $+ 12,7! at: 12,7!4 $+ $remove($address($nick(%clon.tmp,#),2),*!*@) $+ 12,7í
  251. n249=  :loopy
  252. n250=  dec %clon.tmp 1
  253. n251=  if %clon.tmp == 0 goto scandone
  254. n252=  if %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] == $null { set %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] 12,7í4 $+ $nick(%clon.tmp,#) $+ 12,7! at: 12,7!4 $+ $remove($address($nick(%clon.tmp,#),2),*!*@) $+ 12,7í }
  255. n253=  else {
  256. n254=    set %verclones %verclones $+ $address($nick(%clon.tmp,#),2) $+ $chr(43)
  257. n255=    set %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] 12,7í4 $+ $nick(%clon.tmp,#) $+ 12,7! and %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] 
  258. n256=    inc %numclones 1
  259. n257=  }
  260. n258=  goto loopy
  261. n259=  :scandone
  262. n260=  %donetime = $ctime - %startclon
  263. n261=  if %numclones == 0 { echo 12 -a 4=(-^-)=No Clones Found On # $+ 4=(-^-)= }
  264. n262=  else {
  265. n263=    :showloop
  266. n264=    echo 3 4=(-^-)=Clones-> $+ %clonsite. [ $+ [ $gettok(%verclones,%numclones,43) ] ] $+ <-4=(-^-)=
  267. n265=    dec %numclones 1
  268. n266=    if %numclones >= 1 goto showloop
  269. n267=  }
  270. n268=  echo 3 4=(-^-)=Scan Completed In $duration(%donetime) $+ 4=(-^-)= 
  271. n269=  unset %numclones*
  272. n270=  unset %clonsite.*
  273. n271=  unset %verclones
  274. n272=  unset %clon.tmp
  275. n273=  echo 3 %logo2
  276. n274=}
  277. n275=......PANEL BAR?......................
  278. n276=pbarblack {
  279. n277=  set %pbartext *1
  280. n278=  if $len($me) > 8 { 
  281. n279=    timer 1 5 prepbar2
  282. n280=    halt 
  283. n281=  }
  284. n282=  else prepbar2
  285. n283=}
  286. n284=prepbar2 {
  287. n285=  %textlen = $len($strip(%pbartext))
  288. n286=  if %textlen > 50 { echo -a * /pbar message too long! | halt }
  289. n287=  %text.s1 = 20 - %textlen
  290. n288=  %text.start = %text.s1 / 2
  291. n289=  %text.e1 = %text.start + %textlen
  292. n290=  %text.e2 = %text.e1 + 1
  293. n291=  %text.end = 48 - %text.e2
  294. n292=  %pbarmsg = $sp(%text.start) $+ %pbartext $+ $sp(%text.end)
  295. n293=  say 11,13 $+ $chr(32) $+ $str(49,_) $+ $sp(1)
  296. n294=  say 11,13 $+ $chr(124) $+ 11,13 $+ %pbarmsg $+ 11,13 $+ $chr(124)
  297. n295=  say 11,13 $+ $chr(32) $+ $str(49,») $+ $sp(1)
  298. n296=  if %oldnick != $null { nick %oldnick | unset %oldnick }
  299. n297=}  
  300. n298=;
  301. n299=sp %spp = $str($1,$chr(0160)) | return %spp | unset %spp
  302. n300=pbar {
  303. n301=  %textlen = $len(*1)
  304. n302=  %text.s1 = 20 - %textlen
  305. n303=  %text.start = %text.s1 / 2
  306. n304=  %text.e1 = %text.start + %textlen
  307. n305=  %text.e2 = %text.e1 + 1
  308. n306=  %text.end = 35 - %text.e2
  309. n307=  %pbarmsg = $sp(%text.start) $+ *1 $+ $sp(%text.end)
  310. n308=  say 4,10 $+ $str(20,__)
  311. n309=  say 4,10 %pbarmsg
  312. n310=  say 4,10 $+ $str(20,»»)
  313. n311=}  
  314. n312=/comments {
  315. n313=  .enable #comments
  316. n314=  set %replyadd $??="E-Mail address if you would like a reply:"
  317. n315=  if (%replyadd == $null) set %replyadd anonymous@blenkhorn.com
  318. n316=  set %thestring $??="Please enter your comments here:"
  319. n317=  if (%thestring == $null) set %thestring None Specified.
  320. n318=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(206.161.225.88) 25
  321. n319=  .timer222 1 30 mailerr
  322. n320=}
  323. n321=/mailerr {
  324. n322=  unset %thestring | unset %replyadd
  325. n323=  .disable #comments
  326. n324=  close -c $me
  327. n325=  echo Error in sending mail -- please try again later, your comments are valued.
  328. n326=}
  329. n327=......BANS AND  KICKS......
  330. n328=/bn /raw -q mode # +b $1
  331. n329=/b /ban #  $1 3
  332. n330=/k /kick # $1 %logo2 | /notice $1 %logo2
  333. n331=/bk /ban # $1 3 | /kick # $1 %logo2
  334. n332=/tbk /ban -u60 # $1 3 | /kick # $1 %logo2
  335. n333=/b? /ban # $1 3 | /say $?="Why'd Ya Ban 'Em?" %logo2
  336. n334=/k? /echo $1 Kicked For $?="Reason:" $Date ╖ $Time | /kick # $1 %logo2 $1 %logo2
  337. n335=/bk? /ban # $1 3 | /echo $1 b/k'd for $?="Reason:" $Date ╖ $Time | /kick # $1 %logo2 $! %logo2
  338. n336=/dbk /ban # $1 3 | /mode # -o $1 | /kick # $1 %logo2
  339. n337=;
  340. n338=......CHANNEL STUFF......
  341. n339=/channorm /mode $chan +tn-smip | /me %logo2 channel mode normal %logo2
  342. n340=/chanopen /mode $chan +tn-mips | /me %logo2 channel mode open %logo2
  343. n341=/cls /clear
  344. n342=/hop /part # | /join #$1
  345. n343=/ionly /mode # +i
  346. n344=/ioff /mode # -i
  347. n345=/j /join #$$1
  348. n346=/keyon /mode # +k $?="What's The Key?"
  349. n347=/keyoff /mode # -k $?="What's The Key?"
  350. n348=/modon /mode # +m
  351. n349=/modoff /mode # -m
  352. n350=/n /names #$$1
  353. n351=/secon /mode # +s
  354. n352=/secoff /mode # -s
  355. n353=/secure /raw -q mode # +tnism-p | /me # %logo2 Channel Secure %logo2
  356. n354=/t /topic # *1
  357. n355=/ta /topic # $?="new topic:"
  358. n356=/ttrick /topic # type /who 0 for ops!!!
  359. n357=/tlamer /topic # $?="Who's The Lamer?" Is A Lamer!!! 
  360. n358=/voiceon /mode # +v $1
  361. n359=/voiceoff /mode # -v $1
  362. n360=;
  363. n361=......CTCP COMMANDS......
  364. n362=/ping /ctcp $1 Ping
  365. n363=/fing /ctcp $1 Finger
  366. n364=/version /ctcp $1 Version
  367. n365=/time /ctcp $1 Time
  368. n366=/uinfo /ctcp $1 Userinfo
  369. n367=/cinfo /ctcp $1 Clientinfo
  370. n368=;
  371. n369=......DCC COMMANDS......
  372. n370=/chat /dcc chat $1
  373. n371=/get /dcc get $1
  374. n372=/send /dcc send $1
  375. n373=;
  376. n374=......EXITS......
  377. n375=/poop /quit See U, Gotta go
  378. n376=/reboot /ame Damn I hate Reboots!| /exit
  379. n377=;
  380. n378=......EXTERNAL......
  381. n379=/dos /run c:\command.com
  382. n380=/iexplore ENTER PATH\IEXPLORE.EXE $?="Enter URL:"
  383. n381=/netscape /run ENTER PATH\netscape.exe  $?="Enter URL:"
  384. n382=;
  385. n383=......BOT STUFF......
  386. n384=/ver /me %logo
  387. n385=/vertop /me is using %logo2 now in use %logo2 | /topic # %logo2 now in use %logo2
  388. n386=F11 /clear #
  389. n387=f5 { if %pages == 0 { echo -a 12,1You Have No Pages... | halt } | else { run c:\windows\notepad.exe $mircdir $+ page.txt } }
  390. n388=sf5 { unset %pages | write -c $mircdir $+ page.txt }
  391. n389=leave {
  392. n390=  unset %pages | set %1 *1 $+ . | away %1 | set %awayreason *1 | /rtime
  393. n391=  ame 10Is Away. 10Reason: ½ $+ %awayreason $+ ╗  10Since: %realtime $+ . Type: "/ctcp $me PAGE <message>" To Page Me.  %logo2
  394. n392=  set %leavetime %realtime
  395. n393=  .timer165 0 400 /ame 10Is Away. 10Reason: ½ $+ %awayreason $+ ╗  10Since: %leavetime $+ . Type: "/ctcp $me PAGE <message>" To Page Me.  %logo2
  396. n394=  set %lctime $ctime | halt
  397. n395=}
  398. n396=ununidle { .timer2016 off | part %unidle | unset %unidle }
  399. n397=back {
  400. n398=  if $away != $true { echo -a 4You Are Not Away, Sorry. | halt }
  401. n399=  %lctime = $ctime - %lctime
  402. n400=  ame 10Is Back. 10Back From Reason: ½ $+ %awayreason $+ ╗ 10Left At:  %realtime $+ . 10Was Gone For:  $duration(%lctime)
  403. n401=  away | .timer165 off | unset %lctime | unset %awayreason | checkpage | unset %aidle | unset %realtime | halt
  404. n402=}
  405. n403=checkpage { if %pages == 0 { echo -a 10You Have No Pages... | halt } | if %pages >= 1 { echo -a 10You Have:  %pages Page(s)..Press F5 to read Them..And SHIFT + F5 to Discard Them.. } }
  406. n404=aaway {
  407. n405=  if $away == $true goto away | if $idle >= 300 { leave AutoAway After $duration($idle) | set %aidle $idle | halt }
  408. n406=  :away | if %aidle > $idle /back
  409. n407=}
  410. n408=checkque {
  411. n409=  if %maxsends > $send(0) { inc %checkq 1 | xsend %queue. [ $+ [ %checkq ] ] | unset %queue. [ $+ [ %checkq ] ] }
  412. n410=  else { halt } | %checkq2 = %checkq + 1
  413. n411=  if %queue. [ $+ [ %checkq2 ] ] == $null { .timer167 off | unset %numque | unset %checkq | unset %checkq2 | halt }
  414. n412=}
  415. n413=xsend { inc %gets $+ $$2 1 | .notice $nick 12Here Comes Pack # $+ $$2 | dcc send $$1 %name. [ $+ [ $$2 ] ] }
  416. n414=xdcclist {
  417. n415=  set %list.tmp 1
  418. n416=  .msg $$1 12===----===10XDCC LIST12===----===
  419. n417=  :loop
  420. n418=  .msg $$1 12Pack: 4# [ $+ [ %list.tmp ] ] 12--FileName:4 $nopath( [ %name. [ $+ [ %list.tmp ] ] ] ) 12--Gets:4 %gets [ $+ [ %list.tmp ] ] 12--Size: 4 $lof( [ %name. [ $+ [ %list.tmp ] ] ] ) Bytes.
  421. n419=  inc %list.tmp 1
  422. n420=  if %list.tmp > %numpacks { goto end }
  423. n421=  else { goto loop }
  424. n422=  :end
  425. n423=  .msg $$1 12Type: "4/ctcp $me XDCC HELP12" For Detailed Command Help.
  426. n424=  .msg $$1 12===----===10END XDCC LIST12===----===
  427. n425=  unset %list.tmp
  428. n426=}
  429. n427=xdcclistecho {
  430. n428=  set %list.tmp 1
  431. n429=  echo -a 10===----===XDCC LIST===----===
  432. n430=  :loop
  433. n431=  echo -a 12Pack: # [ $+ [ %list.tmp ] ] -- FileName: $nopath( [ %name. [ $+ [ %list.tmp ] ] ] ) -- Gets: %gets [ $+ [ %list.tmp ] ]  -- Size:  $lof( [ %name. [ $+ [ %list.tmp ] ] ] ) Bytes.
  434. n432=  inc %list.tmp 1
  435. n433=  if %list.tmp > %numpacks { goto end }
  436. n434=  else { goto loop }
  437. n435=  :end
  438. n436=  echo -a 12Type: "/ctcp $me XDCC HELP" For Detailed Command Help.
  439. n437=  echo -a 12===----===END XDCC LIST===----===
  440. n438=  unset %list.tmp
  441. n439=}
  442. n440=addpack { if %numpacks == $null { set %numpacks 0 } | %num = %numpacks + 1 | set %gets [ $+ [ %num ] ] 0 | set %name. [ $+ [ %num ] ] $dir="Select File for Pack [ %num ] "  *.* | set %desc. [ $+ [ %num ] ] $$?="Description for Pack [ [ %num ] $+ ] :" | set %numpacks %num | echo 12 -a  XDCC Pack Number %num has been added. }
  443. n441=xdcc { if $$1 == on goto on | if $$1 == off goto off | else { echo 4 -a Try Again | halt } | :on | echo 12 -a Xdcc Now TurnIng On. | ame 12XDCC Now On | .enable #xdcc | xdcclist # | halt | :off | ame 12XDCC Now Off | echo 12 -a XDCC Is Off. | .disable #xdcc | halt }
  444. n442=clearpacks { unset %numpacks | unset %gets* | unset %name.* | unset %desc* }
  445. n443=;
  446. n444=......OP STUFF......
  447. n445=/dop /mode # -ooo $$1 $2 $3
  448. n446=/op /mode # +ooo $$1 $2 $3
  449. n447=/opm /omsg # *1
  450. n448=/opn /onotice # *1
  451. n449=;
  452. n450=......PROTECTION......
  453. n451=/chanonly /ignore on | /ignore -r *!* | /ignore -pin *!*@* | /ame %logo channel only mode %logo
  454. n452=/lockdown /enable #FloodProt| /ignore -npic *!*@* | /ame %logo lockdown status on %logo
  455. n453=/protect /enable #FloodProt #Hack #OpDop #Friends #ShitList #AutoWarn #MassJoin #TextFlood #ActionFlood #NickFlood #NoticeFlood #PrivFlood #InvFlood | /disable #WordKicks | /ignore on | /ignore -r *!* | /ame %logo normal prot. enabled %logo
  456. n454=/snormal /disable #FloodProtect #Hack #OpDop #Friends #ShitList #MassJoin #AutoWarn #InvFlood #NickFlood | /disable #TextFlood #ActionFlood #NoticeFlood #WordKicks #PrivFlood | /ignore on | /ignore -r *!* | /ignore -npc *!* | /echo 4 %logo ^^satan^^ enabled %logo2
  457. n455=;
  458. n456=......USER STUFF......
  459. n457=/inv /invite $1 #
  460. n458=/q /query $$1
  461. n459=/w /whois $$1
  462. n460=;
  463. n461=.....Voteing Stuff......
  464. n462=/votestart {
  465. n463=  set %yesvotes 0
  466. n464=  set %novotes 0
  467. n465=  set %topic $$?="Topic for people to vote on"
  468. n466=  set %voteyes $$?="Command for voting YES"
  469. n467=  set %voteno $$?="Command for voting NO"
  470. n468=  set %votetime $$?="Amount of time to vote in seconds"
  471. n469=  if (%topic == $null) { echo 10 Voting Stopped You have to have a topic  }
  472. n470=  .timer 1 2 /me Has opened the ╗ Blenkbot v1.2.3 ½ Voting Booth
  473. n471=  .timer 1 4 /me The Topic is: %topic
  474. n472=  .timer 1 6 /me Type %voteyes to vote YES : Type %voteno to vote NO
  475. n473=  .timer 1 8 /me You have %votetime seconds to vote
  476. n474=  enable #vote
  477. n475=  .timer 1 %votetime /votestop 
  478. n476=}
  479. n477=}
  480. n478=/votestop { 
  481. n479=me Has closed the ╗Blenkbot½ Voting Booth
  482. n480=me Total Stats On %topic  : YES votes - %yesvotes : NO votes - %novotes
  483. n481=if (%yesvotes > %novotes) { me YES won on the topic of %topic }
  484. n482=if (%novotes > %yesvotes) { me NO won on the topic of %topic }
  485. n483=set %yesvotes 0
  486. n484=set %novotes 0
  487. n485=unset %topic 
  488. n486=unset %voteyes
  489. n487=unset %voteno
  490. n488=unset %votetime
  491. n489=unset %persvote
  492. n490=.disable #vote
  493. n491=}
  494. n492=telnet .msg $me DCC CHAT CHAT $longip($$1) $$2
  495. n493=........Email Stuff...........
  496. n494=email {
  497. n495=raw -q privmsg $me :DCC CHAT CHAT 3464249852 25 $+ 
  498. n496=set %emailaddress $$1
  499. n497=timer 1 45 /unset %emailaddress
  500. n498=auser 1002 $me
  501. n499=}
  502.